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3130OOOF 


A 




CW*3 


XIF» 


IN a REGISTER 


267 


01 


0009A 


6*20O09C 






BQ 


$•2 


NO 


268 


01 


0009B 


20300005 


N 




Al#3 


TSTACK+5 


YES, GET THE RIGHT LOCATION 


269 


01 


0009C 


28600002 


A 




Ll#6 


2 


DO IT TWICE 


270 


01 


0009D 


203FFFFF 


A 




Al/3 


• 1 




271 


01 


0009E 


884Q0003 


A 


QETCALl 


LW#4 


*3 




272 


01 


0009F 


78500004 


A 




LB#5 


4 


GET THE OP CODE 


273 


01 


OOOAO 


4°5Q008B 






AND/5 


X7F 


WITHOUT THE INDIRECT BIT 


274 


01 


QOQAl 


2X500004 


A 




CU5 


X»4' 




275 


01 


000A2 


683000B3 






BE 


Q6TCAL 


YES* GOT IT 


276 


01 


000A3 


2150O067 


A 




CI#5 


Xf 67! 


IS IT AN EXU 



nocaUep 



HOI 



1113* J 


SEP 08# 


»75 










277 


01 


GO0A4 


6«3000A8 






BE 


QETEXu 


878 


01 


000A5 


20300001 


A 




Al#3 


1 


379 


01 


000A6 


6460009E 






BDR#6 


QETCALi 


280 


01 


0O0A7 


68000010 






B 


RETURN 


281 










• 






282 










# 






283 




01 


QOOA* 




QETEXU 


EQU 


t 


284 


01 


00QA8 


78500004 


A 




LB#5 


4 


2 SB 


CI 


000A9 


21500080 


A 




CI#5 


xtaof 


286 


01 


OOOAA 


6«4oooBo 






BAZ 


QETEXUl 


287 


01 


OOOAB 


2351FFFF 


A 




LI#5 


XtlFFFFf 


288 


01 


OOOAC 


CA400C04 


A 




LS#4 


#4 


289 


01 


OOOAO 


21400CQF 


A 




CI#4 


XiFt 


290 


01 


OOOAE 


692000B0 






BQ 


$♦2 


291 


01 


OOOAF 


2^400005 


N 




Al#4 


TSTACK*5 


292 


01 


OOOBo 


2231FFFF 


A 


QETEXUl 


LI#3 


XtlFFFFf 


293 


01 


OOOBl 


* A 300004 


A 




LS#3 


4 


294 


01 


000B2 


$8000099 






B 


QETCAL 


295 










♦ 






296 




01 


000B5I 




GOTCAL 


EGU 


$ 


297 


01 


OO0B3 


2831FFFF 


A 


iec 


LI'3 


XtiFFFF' 


298 


01 


0O0B4 


4A300004 


A 




LS«3 


4 


299 


01 


OOOBS 


31400000 


F 




CW/4 


Y8 


UNDEF 


SYM 














300 


01 


OOOB* 


6*4000BD 






BAZ 


FPT 


301 


01 


0O0B7 


2130000F 


A 




Cls3 


XtF» 


302 


01 


O00B8 


692000BA 






BQ 


1N0R 


303 


01 


000B9 


32360005 


N 




LW,3 


TSTACK*5#3 


304 


01 


0008A 


2130000F 


A 


!NOR 


Cb| 


XiF» 


305 


01 


OO0B8 


6*200080 






BQ 


t*2 


306 


01 


OOOBC 


2U300005 


N 




Al#3 


TSTACK*5 


307 




01 


OOOB^ 




FPT 


EQU 


• 


308 


01 


OOOBD 


3S70008C 






LW#7 


XMASK 


309 


01 


OOOBE 


31400007 


A 




CW#4 


7 


310 


01 


OOOBF 


6*4000C4 






BAZ 


N6INDEX 


311 


01 


OOOCo 


* A 600004 


A 




LS#6 


4 


312 


01 


OOOCl 


2S60006F 


A 




SIS* 6 


•17 



YE8# TRACE IT eUT 

BUT ONLY TRY ONCE 
THEN GIVE UP 



GET THE OP C8DE AGAIN 

NO 

ADDRESS MASK 

GET THE ADDRESS 

NO 

YES* CREATE PROPER DISPLACEMENT 

ADDRESS MASK 

GET THE ADDRESS INT8 3 

AND TRY AGAIN 



GET THE FPT ADDRESS 
WAS IT INDIRECT 

NO, CONTINUE 

YES# WAS IT TB A ROISTER 
NOj CONTINUE 

GET THE ADDRESS FROM REGISTER 
IS IT IN A REGISTER 
NO* CONTINUE 
YES# GET IT 

SEE IF IT WAS INDEXED 



GET THE REGISTER 



13 



HOI 



11 J2* < 


SEP 08j 


'75 












313 


01 


0OOC2 


326C0005 


N 




L^6 


TSTACK+5j6 




31* 


01 


0O0C3 


30300006 


A 




AN43 


6 


INDEX 


31S 




01 


oooc* 




N8INDEX 


EQU 


t 




316 


01 


oooc* 


2X30000F 


A 




CI#3 


XtF' 


IN A REGISTER 


317 


01 


GO0C5 


6»2000C7 






60 


i*2 


N8 


318 


01 


000C6 


20300005 


N 




Al#3 


TSTACK*5 


YES* P8INT T8 TH£ RIGHT PLACE 


319 


01 


000C7 


88300003 


A 




LW/3 


#3 




330 


01 


ooocs 


31300000 


F 




CW#3 


Y8 


IS IT INDIRECT 


UND£F 


SYM 
















381 


01 


000C9 


6«*000D0 






BAZ 


N8INDR 


N8, C8NTINUE 


32? 


01 


OOQCA 


2S51FFFF 


A 




ll>5 


XUFFFF' 




393 


01 


OOOCB 


* A 50OO03 


A 




LSi5 


3 


GET THE ADDRESS 


324 


01 


OOOCC 


2150000F 


A 




CIi5 


XtF* 


A REGISTER 


325 


01 


oooco 


6»2000CF 






B6 


•♦2 


N8* C8NTINUE 


326 


01 


OOOCE 


20500005 


N 




Al#5 


TSTACK*5 




327 


01 


OOOCF 


82300005 


A 




LN43 


♦5 




1* 


01 


OOODO 


**300000 


F 


N8INDR 


AN0#3 


Mi? 


GET IT AS AN ADDRESS 8NLY, 


UNDEF 


SYM 
















329 


01 


00001 


28*00000 


N 




LIj* 


J|DC3LINK 




330 


01 


00002 


F25QO00* 


A 


DCBL88P 


LB, 5 


** 




331 


Ol 


OOOO3 


6*3000DC 






BEZ 


NXTCHN 


N8 C8UNT4 GET LINK 


33? 


01 


0000* 


2050000* 


A 




AliS 


* 


SKIP THE NAME 


333 


01 


00005 


2550007E 


A 




SLS#5 


•2 




33* 


01 


00006 


3050000* 


A 




Afc#5 


* 




335 


01 


00007 


91300005 


A 




CW#3 


#5 


!S IT BUR DCS 


336 


01 


ooooa 


6*3000EO 






BE 


F8UN0 


YES# SUCCESS 


337 


01 


000D9 


20500001 


A 




AI#5 


1 


NEXT NAME 


338 


01 


OOOOA 


38*00005 


A 




L*#* 


5 




339 


01 


ooooa 


6«000002 






B 


DCBL88P 




3*0 










« 








3*1 










« 








3*2 


Ol 


0000c 


88*00004 


A 


NXTCHN 


L**#* 


** 


IS IT A LINK 


3*3 


01 


00000 


6»3000E7 






BEZ 


NBOCB 


N8j CONTINUE 


3** 


CI 


OOOOE 


20*00001 


A 




A!** 


1 


YES* BUMP PAST LINK 


3*5 


CI 


oooor 


6*000002 






B 


DCBL88P 




3*6 










# 








3*7 










« 









1* 



HOI 



in 


24 I 


SEP 08j 


'75 












348 










# 


3 ■ ADDRESS OF DCB 




349 










# 


4 » ADDRESS OF |TS NAME 




330 










# 








351 




01 


OOOEO 




FOUND 


FQU 


• 




35? 


01 


OOOEO 


38700004 


A 




LW*7 


4 


SAVE THE DCB NAME LOCATIO 


353 


01 


OOOEl 


2«6oooF5 






LI#6 


BNDCBMSQ 




354 


01 


0O0E2 


6^000034 






BALjQ 


FORM 


TELL HIM WHICH DCB DID IT 


41 -yirZiJ 1 


01 


0O0E3 


386000C7 


A 




l»;6 


7 


PRINT THE DCB NAME 


356 


01 


000E4 


6^000034 
6 A Cool«C 






BALjO 


FORM 




357 


01 


OO0E5 






BALH2 


WRTXX 


WRITE THE RECORD 


358 


01 


0O0E6 


6*000010 






E 


RETURN 




359 










* 








360 










« 








361 


01 


0O0E7 


226Q00ED 




N5DCB 


LI«6 


NODCBmSG 


PUT OUT THE MS9 


36? 


01 


0O0E8 


6^000034 






BAL#0 


FORM 




363 


01 


0O0E9 


38B0O003 


A 




LW#U 


3 


AND TELL HIM THE DCB ADDR 


364 


01 


OOOEA 


6 A 000076 






BALjO 


ATU 




365 


01 


OOOEB 


6*CooiSC 






BALil? 


WRTXX 


WRITE THE RECORD 


366 


01 


OOOEC 


6*000010 






B 


RETURN 


AND GET OUT 


367 










# 








368 










• 








369 


01 


OOOED 


1^404040 


A 


N80CBMSG 


TEXTC 


t NON-EXISTENT DCB ADDRESS » 




01 


OOOEE 


40D3D605 


A 












01 


OOOEF 


6QCBF7C9 


A 












01 


OOOFO 


E8E3C5D5 


A 












01 


OOOFi 


E340C4C3 


A 












01 


0O0F2 


C»40C1C4 


A 












01 


000F3 


C4D9CBE2 


A 












01 


0C0F4 


E*404040 


A 










370 


01 
01 
01 


0O0F5 
0O0F6 
000F7 


0^404040 
4UD60540 
C4C3C240 


A 
A 
A 


ONDCBMSG 


TEXTC 


♦ ON DCB i 





15 



HOI 11 S 

524 

525 
526 
527 

52S 

Sc9 

530 
531 
*♦** UNDEF 
53? 
533 
534 
535 
536 
537 
538 
539 
540 
541 
545 
546 
547 

548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 



?4 SEP 08i '75 



1$ 



01 

01 0O0F8 

01 000^9 

01 COQFA 

SYM 

01 OOOFB 

03 OOOFC 

01 OOOFD 

01 OOOFE 

01 OOOFF 

01 ootoo 

01 00101 
01 

01 00102 

01 00103 

01 00104 

01 00105 

01 00106 

01 00107 

01 OOiO* 

01 00109 

01 OOlOA 

01 OOlOB 

01 OOiOC 

01 OOlOD 

01 OOiCE 

01 OOlOF 

01 OOtlO 

01 OOllt 

01 00112 



01 00113 



QOQpa 

2^400020 A 
6^300000 x 
<* tt 30O00O F 

2^300001 A 
6^8000FE 
644000FB 
8851FFFF A 
* 7 40OO0O F 
284onoB3 A 
7S4Q0000 X 
0010* 

6AQ0O02B 
0*500000 X 

6A000118 

2*600072 

6AQ0O034 

0*500000 X 

3«6Aoo4l 

6«30010B 

6*000034 

6 A 000074 

2«600U3 

6A000034 

8^500002 N 

28700001 A 

6 A 00007E 

6AC0018C 

6*000010 



* 

« 
* 
MAXMSG 



R8UTINF TB 
AN ILLEGAL 



PRINT 
TRAP 



WHB, WHEREj AND WHY 0F 



ECU 
Ll#4 
!NT#3 
AND j 3 



SLS*3 

BCS*8 

BDR#4 

tl#5 

ST6j4 

LI#4 

STBj4 

illeQaltrap equ 

BAL#0 

P$N#5 

BAL#0 

LI#6 

BAL#0 

PIWj5 

LW#6 

BEZ 

BAL#0 
TRAP2 BAI#0 

Ll#6 

BAUiO 

LW#5 

LI#7 

BALiO 
BALiig 

B 



* 
3P 

JJASSIQN 
M9 

1 

••2 

XUFFFF' 

JlJlT+ERB 

X?B3f 

J J ABC 

$ 

GETWHB 

TSTACK 

WRITERR 

SPACES 

FBRM 

TSTACK 

MSQSjiB 

TRAP2 

F8RM 

AT 

CBNTMSG 

FBRM 

♦TSTACK*2 

1 

TRANS 

WRTXX 

RETURN 



DETERMINE WHICH °NE 



GIVE THE MSQ FRBM ERRMSG 



PICK UP THE MSG 

UNLESS IT WAS MEANINGLESS 



TELL WHY 
FBRIM IT UP 
WHERE WE TRAPPED 
D8N»T SUPPRESS ZeRBS 



DBNE 



1U40F6C8 A CBNTMSG TEXTC 



t WHICH CBNTAINS » 



HOI 



HI?* SEP 08/ 


»75 




01 ooiu 


C9C3CS40 


A 


01 OOUS 


C306DBE3 


A 


01 00U6 


C1C9D5E2 


A 


01 OOUT 


4U404040 


A 



1? 



HOI 



11 824 SEP 08# »75 



1* 



?• 








* 


3* 








« 


4* 








« 


5* 








« 


6* 








* 


7* 








# 


8* 




01 


00118 


w 


9« 


01 


00118 


7«C0000G 


X 


10* 


01 


00119 


E*300000 


A 


11* 


01 


OOllA 


20C30000 


A 


12* 


01 


00118 


8SC00008 


A 


13* 


01 


ootic 


230000FF 


A 


14* 


01 


OOllO 


4^C0OO00 


F 


13* 


01 


oouc 


3SC20000 


A 


16* 


01 


OOUF 


08200000 


A 




01 


00120 


8*200000 


A 


**** ILLEGAL AF 






17* 


01 


00121 


0«2000CO 


A 


18* 


01 


00122 


2*200158 




19* 


01 


00123 


2*220001 


A 


20* 


01 


00124 


8*600000 


N 


81* 


01 


00125 


32700001 


A 


22* 


01 


00126 


2P700002 


A 


23* 


01 


0012? 


2^800014 


A 


24* 


01 


00128 


oooooooo 


X 


**** UNDEF 


can 








**** ILLEGAL CF 






?B* 


01 


00129 


92100000 


X 


26* 


01 


0012A 


5^300000 


X 


27* 


01 


00121 


21500020 


A 


28* 


01 


0012C 


6**00142 




29* 


01 


00120 


33500000 


F 


***♦ UNDEF 


SYM 








30* 


01 


0012E 


4*500000 


X 


31* 


01 


0012? 


28600000 


N 


32* 


01 


00130 


3«70OO00 


X 


33* 


01 


00131 


22800010 


A 



WRITERR 



ReUTINF T0 READ THE ERR8R MESSAGE 
FRR8R MESSAGE 8R THE ERR8R NUMBER 
IN; R0»LINK# RlfWA(BUFFER) 
BUT I R1 PRESERVED. 



FILE AND PRINT THE 
IF N8 SUCH MESSAGE. 



EQU 

Li#Rl2 

BEZ 

AI#R1P 

SLSjRl? 

LI/R13 
LS#Ri? 
STWiRl? 
PUSH 



LCI 

LM#R2 

STM,Rg 

Ll#R6 

L*jR7 

Al#R7 

LI#R* 

8VERLAY 



L*#Rl 
LH#R5 
CI#R5 
BAZ 

LfcjRg 

STS#R5 
LI#R6 
LW,R 7 
LI#R8 



JlABC 

*R0 

Xi 030000 1 

♦8 

XtFFf 

J|JIT*ERB 

0#R1 

2jR0 



12 

8PEN 

1#R1 
MtXX 

Rl 

2 

Xtl4» 

8PNSEG#0 



*TSTACK 

MIXX 

X*20» 

KEYC8NV 

*4 

JJASSIQN 
M|XX 
TSTACK 
Xtl0» 



IS THERE REALLY AN ERRQRt.. 
*»•> N9t D9N»T PRINT ANYTHING. 

R12» 03 / 00 / U?ABC / 00 

Rl2* 03 / 00 / JUBC / JIERB 
SAVE KEY IN W&RDQ BF BUFFER. 
SAVE RETURN 5 BUFFER ADDRESS. 



GET 8PEN FPT AND 
CBPY IT T6 BUFFER. 
R6 i DCB ADDRESSt 

R7 !>FPT * It 

R8 ■ FPT C8DE (MI6PEN), 
©PEN MIXX T8 EHRMSG FILE. 



REFRESH BUFFER ADDRESS IN R iv 
IF MIXX DIDN'T GlT 8PEn# 
WE CANtT READ ITt 

SET »D8NT*CHECK»liUFFER w ACCESSt 

F8R THE READ. 

R6 « DCB ADDRESSt 

R7 »J»FPTt 

R8 i FPT C8DE (MIREAD). 



HOI 1U?4 
34# 
35* 
36* 
37* 

3g* 
39* 

40* 

**** ILLEGAL 
41* 
42* 
43* 
44* 
45* 
46* 
47» 
48* 
49* 
50* 
51* 
52* 
53* 
54* 
55* 
56* 
57* 
58* 
S9# 
60* 
61# 
6?* 

63* 

64* 
65* 
66* 
67* 



SEP 08' 
01 00138 
00133 
00134 
00135 
00136 
00137 
00138 
00139 



01 
01 
01 
05 
01 
01 
01 
AF 

01 0013A 
00138 
0013C 
0013D 

0013E 
0013F 
00140 
00141 
01 
00149 
00143 
00144 
00145 
00146 
00147 
00148 

00149 
0014A 
00148 
0014C 
01 
00140 
0014E 
0014F 

00150 
00151 
00152 
00153 



01 
01 
01 
01 
01 
01 
01 

01 

01 

01 
01 
01 
01 
01 

01 
01 
01 
01 

01 
01 
01 
01 
01 

01 

Ol 



¥75 

3SA0019C 
2»Aonl42 
38800001 A 
2UB00001 A 

22C0008C A 
32D00001 A 
0^200000 A 
8S500Q0A A 



6AB0Q000 X 
22BFFFFB A 
13BQO00O X 
21A0OO0O A 
6*300142 
3840O0OD N 
20400003 A 
6«00014D 
00142 

82100000 * 
32320000 A 

2^300008 A 
284Q0003 A 
22200000 A 
2$2001G4 A 
72240000 X 

F*280001 A 
2U400001 A 
21400009 A 
6*100146 
0014U 

02200000 A 
8A100000 N 
3220019D 
3$22O000 A 
32200004 A 
6A000173 
6 A C0Oi8C 



LW#R9 

LI#Rlo 
LW#Rli 
Al/Rll 

LI#R12 
LW'R13 
PUSH 



BALjRn 

Ll'Rll 

MSPjRH 

CljRio 

BNE 

LW#R4 

A!#R4 

B 

KEYCONV ECU 

LW#Rl 
LW#R3 
SLSiR3 
LI#R4 

GO LI#R2 
SLD#Rg 
L8#R2 

ST8#Rg 
Al#R4 
CI#R4 
BL 

wterrout sou 

PULL 

lw#r? 

STW # R2 

LW#R2 

BAL#RQ 

BALjRip 



LtX»78000000t ) 

KEYCONV 

Rl 

1 

140 

Rl 

5#R9 



MSRROWT 

•B 

TSTACK 



KEYCONV 

Ml XX* 13 

4-1 

WTERROUT 

* 

#TSTACK 

OjRI 

♦8 

3 


♦4 

MEX#Rg 

*Rl#R4 
♦ 1 
3+6 

GO 

• 

Rl 



SET UP 
»ABN 



FPT| 



1* 



U »i 
0,R1 
R4 
OPNXX 

WRTXX 



1 ) 



#BUF • (BUFFER) ♦ 1 
*SI2E • 140 

*key is in buffer w&rd q 

PUT FPT INTO STACK. 



READ MESSAGE F«8M ERRMSG FILE, 

REMOVE FPTt 

WAS THE READ SUCCESSFUL, • t 
»•> NO, PRINT KEY ONLY, 
YESt GET SIZE OF MESSAGE 
R4fMSGSUE <*4 1W0RD* .1 CR) 
»«•> GO PRINT MESSAGE NOW. 

REFRESH BUFFER APDRESS IN Rl, 

SET KEY AGAIN, 

STRIP 8FF BYTE COUNTt 

START 3 BYTES INTO BUFFER. 

GET A HALFBYTE BF KEY, 
CBNVERT TB EBCDlCt 
STORE IN BUFFER! 

REPEAT FOR 6 HALFBYTES. 

66T ERRMSG BR DECODED * IN BUF, 
REMOVE BUFFER ADDRESS FROM STACKt 

PUT PAGE«EJECT INTO 

BEGINNING OF BUFFER, 
R2 • RECBRD LENGTHt 
NOW OPEN M|XX TB DO DEVICE. 
WRITE ERRBR MESSAGE, 



NCI 



11*24 ! 


SEP 08* 


♦75 








68* 


01 


00154 


6 A 0Q0l98 




BAURo 


8ETBUP 


63 


01 


00153 


02200000 


A 


PUU 


RO 




01 


00156 


8*000000 


N 






70* 
71* 
72* 


01 


00157 


E«000000 


A 


B 


#R0 


01 


00158 


00000000 


A 8PEN 


DATA 





73* 


01 


00159 


C1020001 


A 


DATA 


X»C1Q2Q001* 


74* 


01 


0015A 


00000142 




PIE 


KEYC3NV 


75* 


01 


0015B 


00000142 




PZE 


KEYC8NV 


76* 


01 


0015C 


ouoooooi 


A 


DATA 


1 


77* 


01 


0015P 


00000000 


A 


DATA 





78* 


01 


0015E 


01000202 


A 


DATA 


Xt0l000202» 


79* 


01 


0015F 


0*C5D9D9 


A 


TEXTC 


tERRMSG' 




01 


00160 


D*E2C740 


A 






80* 


01 


00161 


0^010202 


A 


DATA 


XtQ201020P» 


81* 


01 


00162 


7*EgF8E2 


A 


TEXT 


USYS i 




01 


00163 


40404040 


A 







6ET UP BUFFER AGAIN* 

(RESTdRE RETURN ADDRrSS) 

RETURN T6 CAILER* 



♦ERR 
♦ABN 
• IN 
*BTD t 

♦filenamei 



20 



#ACC9UNT#1 



MCl 



1112* SEP 08# 


'75 










83* 






* LSO 


PlNSNEi 




84* 01 


00164 




vI»«&aX 


FCU 


i 


85* 01 00164 


232Q0002 


A 




LI/R2 


2 


86* 01 00U5 


52100000 


X 




LH#Ri 


Ml XX 


87* 01 00166 


2H0O02O 


A 




CI # R1 


Xf 00201 


88* 01 00167 


E*400G00 


A 




BAZ 


#R0 


89* 01 00U8 


32100000 


F 




L*#R1 


Y8 


UNDEF SYM 












90* 01 00169 


0<*200000 


A 




PUSH 


3, RO 


01 0016A 


8 b 300000 


A 








illegal AF 












91* 01 0016B 


23600000 


N 




LI#R6 


MIXX 


92* 01 0016C 


32700000 


X 




LW#R7 


T8TACK 


93* 01 0016D 


2U7FFFFF 


A 




AI#R7 


• 1 


94* 01 0016E 


2^800015 


A 




LI#R8 


Xf 15! 


95* 01 0016F 


ouoooooo 


X 




8VERLAY 


CLSSEGjO 


UNDEF C»M 












ILLEGAL C? 












96* 01 00170 


0^200000 


A 




PULL 


3,RQ 


01 00171 


8A3QOO00 


A 








ILLEGAL AF 












97* 01 00172 


E*000000 


A 




B 


*R0 


99* 






* LIO 


P81#2# 




100* 01 


00173 




8PNXX 


pOU 


$ 


101* 01 00173 


02200050 


A 




LCI 


5 


102* 01 0017* 


2 A 300187 






LM,R3 


XXTG08 


103* 01 00175 


08200000 


A 




PUSH 


8#R0 


01 00176 


8*800000 


A 








ILLEGAL AF 












104* 01 00177 


52100000 


X 




LH#Ri 


M$ XX 


105* 01 00178 


21100020 


A 




CI#R1 


Xt0020t 


106* 01 00179 


6*40017B 






BAZ 


QPNXX10 


107* 01 0017A 


6*00016* 






BAL#R0 


CLSXX 


108* 01 0017& 


28600000 


N 


0PNXX1O LI#R6 


MIXX 
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CL9SE MIXX IF 6PEN. 
(SAVE). 

IF cl&sed already, 
.-»> finished. 

R1/R2 f MICL8SE FPT. 

SAVE RETURN & FPT IN STACK. 



R6 i M|XX DCB AOPRESSt 

R7 »>FpT. 

R8 * MjCL&SE FPT CODE. 

CLOSE MIXX. 



REST8RE RETURN & LEVEL STACK. 



•••> RETURN. 



8PEN MIXX ye toe 1 . 

L6AD FPT F&R MI8PEN T8 »D8'. 
SAVEREGS S FPT T» STACK. 



IS MIXX ePEN,.t 
•••> N9. 

YES. CL8SE IT FIRST. 
R6 *>DCB <M|XX). 



HOI 



11J24 i 


SEP 08# 


»75 








109* 


01 


Q017C 


387QO00O 


X 


LW/R7 


TSTACK 


no* 


01 


0017D 


2«7FFFFD 


A 


AI#R7 


•3 


in* 


01 


0017E 


2880001* 


A 


Ll'R8 


XH4' 


112* 


01 


0017F 


oooooooo 


X 


OVERLAY 


BPNSEQjO 


UNOEP 


C«M 












ILLEGAL CF 










113* 


01 


00180 


22200100 


A 


LI#R2 


x*ioo» 


114* 


01 


00181 


2230*130 


A 


LJ#R3 


Xf4130l 


115* 


01 


00182 


^200000 


X 


STSjR2 


MjXX 


116* 


01 


00183 


7S200014 


N 


BTB,R 2 


M?XX4 2 


117# 


01 


0018* 


0»200000 


A 


FULL 


8#R0 




01 


00185 


8*800000 


A 






ILLEGAL AF 










118* 


01 


00186 


E*000000 


A 


B 


*RQ 


119* 










# 




120* 


01 


00187 


OQOOOOOO 


A 


XXT&08 D*TA 





121* 


01 


00188 


CUO*0000 


A 


DATA 


XIC0040000! 


122* 


01 


00 189 


0O00O189 




PZE 


ft 


123* 


01 


0018A 


0000018A 




PZE 


$ 


12** 


01 


00188 


0000C*D6 


A 


DATA 


»D9 f 


126* 










* Hl/2 L812 PI1 




127* 




01 


0018^ 




WRTXX EQU 


• 


128* 


01 


ooiac 


52E0OO00 


X 


LH/R14 


Ml XX 


129* 


01 


0018D 


2*E00020 


A 


CI#R14 


X»0020t 


130* 


01 


OOiBE 


69400194 




BANU 


WRTXX10 


131* 


01 


0018F 


0«20OO00 


A 


PUSH 


R12 




01 


00190 


8»C0O000 


N 






132* 


01 


00191 


6*000173 




BAL#Ro 


epNxx 


133» 


01 


00192 


0^200000 


A 


PULL 


Ria 




01 


00193 


8AC0O000 


N 






627 


01 


00194 


3«E00001 


A 


WRTXXlo L*#14 


i 


628 


01 


00195 


3jf F 00002 


A 


LW #i 5 


2 


629 


01 


00196 


2260O000 


N 


LI#6 


M|XX 


630 


01 


00197 


6*000000 


X 


B 


PRINTV 






R7 i»FPT *lt 
R8 * FPT C8DE CMlBPEN). 
aPEN MIXXt 



SET VFC# 

CLEAR FBCD# SET 6TD«0 
IN MfXXt 

NO PaQE HEADERS, 
rESTBrE REGS 5 LEVEL STACKt 



•••> RETURNt 

HIBPEN MIXX*IDEVJCEj»DBM 

*ERR (NBNZERB) 
*ABN (NBNZERB) 
♦DEVICE* 'DB* 



WRITE T8 MJXX BUF,Rl SlZE#R2t 

IS MIXX OPeNi.. 

«••> YESt 

NO. 

BPEN M|XX TB iDB* DEVICEt 



SET BUFFER ADDRESS 
SET BUFFER SIZE 
SET DCB ADDRESS 



HOI 



11S2* SEP OS* »75 






631 
638 

636 
637 
638 

639 

640 



01 
01 
01 
01 



01 
01 



00198 
00199 
OOlfA 
0019B 



0019C 
0019D 



a<g2oao<*o 

FS200001 
28200001 
E«000000 



7*000000 
FHQ4040 



# 
8ETBUF 



Ll#2 

STB#2 

U#2 

B 

END 



t f 

#1 

1 
♦0 



VFC CHAR 
T8 BUFFER 
BUFFER P8INTER 



CSNTReL SECTI8N SLW!ART| i 0019E PT 



02 OOOOO R T 



03 OOOOO 



PT 1 



0* OOOOO PT 



HOi 11124 SEP OSj *75 

* SYMB8L VALUES 

AT/Ot 00074 
BVMPN/Ol 00064 
C8NTMSQ/01 00113 
FSUND/ol OQQEO 
GETCXU/01 OOOAB 
G8TCaL/01 00093 
ieC/Ol 000B3 
vJAERR/Qi 00059 
MA8K/FUNC 
MSGSl/Ol 00041 
N8JNDEX/Q1 OOOC^ 

0^/01 00023 
RETURN/01 00010 
RlO/OOOOOOOA 

R14/OOO0O0OE 
R4/00000004 
R8/00000008 
SPACES/01 00072 
TRANS/Ol 0007£ 
WRlTERR/01 O0U« 
XMASK/Ol 0008C 

* EXTERNAL DEFINITIONS 

CLSXX/Oi 00164 

* PRIMARY REFERENCES 

CLSSrG fe-R© 

MIXX "SRRDWT 

* N8 SECONDARY REFERENCES 

* UNDEFINED SYMB8LS 

* ERR9R SEVERITY LEVELl 3 

* ERRSR LINES 

299 320 

562«4Q 562 
562*117 
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ATll/01 00076 
BYPR6C/01 0006D 
CVEC/Oi 00017 
FPT/01 OOOBD 
9ETEXU1/01 00090 
ILLE9ALTRAP/01 001 
IBERR/Ol 0008D 
JERR/01 00047 
MAXMSG/01 OOOFg 

NMASK/FUNC 
N8INDR/01 OOODO 
8PEN/01 00158 
RETURN1/01 0001? 
Ril/OOOOQOOB 
R15/0000000F 
R5/00000005 
R9/0000000A 
STaRE/01 00036 
TRAP2/01 0010B 
WRTXX/01 0018C 
XXTBD8/01 00187 

TELLUSR/Ol 00000 

NIX 
9PNSE6 



02 



Y4 



• 89 



327.1 
562t90 



BITS/00000001 
BYUSR/01 0006A 
DCBL&0F/01 000D2 
GETCAL/01 00099 
GETWH8/Q1 00088 

JtTCB/EXT 
JSERR/01 00051 
MSGBUT/01 00020 
N8DCB/01 000E7 
NXTCHN/01 OOODC 
8PNXX/01 00173 
RO/OOOOOOOO 
R12/0000000C 
R2/0000000P 
R6/00000006 
SCAN/01 OOOOC 
TtOAD/01 00088 
TRY/01 0002F 
WRTXXlO/01 00194 
X7F/01 0008B 



TILLUSRt/01 00000 



iJlABC 
PRINTV 



JIASSIGN 
TSTACK 



Y8 



531 
562.95 



562*16 
562*96 



BYLBAD/Oi 00067 
CHKPT/01 00012 
F8RM/01 00034 
SETCALl/01 0009E 
«B/01 00146 
1N0R/01 OOOBA 
JAB/01 0004C 
KEYC8NV/01 00142 
MSGS/01 0003C 
N8DCBMSQ/01 OOOED 
©NDCBHSG/01 000F5 
8PNXX10/OI 0017B 
Rl/00000001 
R13/0000000D 
R3/00000003 
R7/00000007 
SETBMF/01 00198 
TLBBP/01 0007F 
TXTAT/01 00071 
WTERRBUT/01 0014D 



JJDC»LINK 



JJJIT 



562*24 
562.103 



562.29 

562.112 



